﻿Public Class __PrimTahsilatIsveren : Inherits Process

	Dim sno, donem, yil As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Prim tahsilatı (işveren)", "İşveren bilgisini girin.")
				sno = AddSigortali()
				'AddCombo("bordro", "Bordro tipi", "H|J", "width=2", "", "Bordro tipini seçmelisiniz.")
				donem = AddCombo("donem", "Dönem", "1|2|3|4", "width=4", "", "Dönem")
				yil = AddCombo("yil", "Yıl", "2011|2010|2009", "width=6;nl", "", "Yıl")
				StartBody()
				AddList("List", 0, 80)
				List.AddColumns("isyerino(İşyeri no.;80l),isyeriadi(İşyeri adı;100%l),tehlike(T.S;40c),basamak(Bas.;40c),ay1(Ay1;60c),ay2(Ay2;60c),ay2(Ay2;60c)")
			Case EventType.Shown
				Dim DonemeEsasTarih = Today.AddMonths(-3)
				yil.Set(DonemeEsasTarih.Year)
				donem.Set(Int((DonemeEsasTarih.Month - 1) / 3) + 1)
			Case EventType.ValidateForm
				Dim DonemBas = New Date(yil.Get, (donem.Get - 1) * 3 + 1, 1)
				Dim Borc = Prim.Borc.HesaplaIsveren(Remote, sno.Get, CurrentDepartment, DonemBas, DonemBas.AddMonths(3).AddDays(-1), Remote.SysDate)
				If Check("Sigortali", Borc.ErrorMessage <> "", "!" & Borc.ErrorMessage) Then Return
				If Check("Sigortali", Borc.Aylar.Count = 0, "!Sigortalının ilgili döneme ait borcu bulunmadı.") Then Return
				For Each d In Borc.Donemler.Values
					Dim b = d.Aylar.First.Bordrolar.First
					Dim Rsi = Isyeri.IsyeriNoAra(Remote, b.isyeri)
					List.AddRow(FormatIsyeriNo(Rsi("isyerino")), Rsi("isyeriadi"), Rsi("tehlike"), b.basamak, d.Aylar(0))
				Next
				Buttons.Show("Save.Reset")
				e.Result = True
		End Select
	End Sub

End Class
